home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_Tix.idb / usr / freeware / lib / tix4.1 / pref / TK.cs.z / TK.cs
Encoding:
Text File  |  1999-01-26  |  960 b   |  33 lines
  1. proc tixSetScheme-Color {} {
  2.     global tixOption
  3.  
  4.     set tixOption(bg)           #d9d9d9
  5.     set tixOption(fg)           black
  6.  
  7.     set tixOption(dark1_bg)     #c3c3c3
  8.     set tixOption(dark1_fg)     black
  9.     set tixOption(dark2_bg)     #a3a3a3
  10.     set tixOption(dark2_fg)     black
  11.     set tixOption(inactive_bg)  #a3a3a3
  12.     set tixOption(inactive_fg)  black
  13.  
  14.     set tixOption(light1_bg)    #ececec
  15.     set tixOption(light1_fg)    white
  16.     set tixOption(light2_bg)    #fcfcfc
  17.     set tixOption(light2_fg)    white
  18.  
  19.     set tixOption(active_bg)    $tixOption(dark1_bg)
  20.     set tixOption(active_fg)    $tixOption(fg)
  21.     set tixOption(disabled_fg)  gray55
  22.  
  23.     set tixOption(input1_bg)    #d9d9d9
  24.     set tixOption(input2_bg)    #d9d9d9
  25.     set tixOption(output1_bg)   $tixOption(dark1_bg)
  26.     set tixOption(output2_bg)   $tixOption(bg)
  27.  
  28.     set tixOption(select_fg)    black
  29.     set tixOption(select_bg)    #c3c3c3
  30.  
  31.     set tixOption(selector)    #b03060
  32. }
  33.